HAM Radio 1997/HAM Radio 1997.iso/vcls/dtool20/demodraw.dfm/demodraw.txt

Text File | 1996-04-08 | 5KB | 216 lines

object OwnerDrawControls: TOwnerDrawControls
  Left = 200
  Top = 99
  BorderIcons = []
  BorderStyle = bsDialog
  Caption = 'Owner-draw Controls'
  ClientHeight = 326
  ClientWidth = 298
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'System'
  Font.Style = []
  PixelsPerInch = 96
  Position = poScreenCenter
  ShowHint = True
  TextHeight = 16
  object btnDraw: TODButton
    Left = 182
    Top = 260
    Width = 89
    Height = 33
    Hint = 'Click me to make this window go away!'
    Cancel = True
    Caption = 'OK'
    Default = True
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'System'
    Font.Style = []
    ModalResult = 1
    ParentFont = False
    TabOrder = 0
    Color = clBtnFace
    OnPaint = btnDrawPaint
  end
  object GroupBox1: TGroupBox
    Left = 9
    Top = 228
    Width = 152
    Height = 89
    Caption = 'Balloon Hint Shape'
    TabOrder = 1
    object rbRoundRect: TODRadioButton
      Left = 17
      Top = 24
      Width = 52
      Height = 52
      Hint = 'Determine the shape of the balloon hint window.'
      Caption = 'RoundRect'
      Checked = True
      Color = clBtnFace
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'System'
      Font.Style = []
      GroupIndex = 1
      ParentColor = False
      ParentFont = False
      TabOrder = 0
      OnClick = rbShapeClick
      OnPaint = rbShapePaint
    end
    object rbRect: TODRadioButton
      Left = 81
      Top = 24
      Width = 52
      Height = 52
      Hint = 'Determine the shape of the balloon hint window.'
      Caption = 'Rect'
      Checked = False
      Color = clBtnFace
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'System'
      Font.Style = []
      GroupIndex = 1
      ParentColor = False
      ParentFont = False
      TabOrder = 1
      OnClick = rbShapeClick
      OnPaint = rbShapePaint
    end
  end
  object GroupBox2: TGroupBox
    Left = 7
    Top = 2
    Width = 282
    Height = 123
    Caption = 'Hint Type'
    TabOrder = 2
    object rbBalloon: TODRadioButton
      Left = 9
      Top = 23
      Width = 124
      Height = 52
      Hint =
        'Selecting this choice will enable balloon style hints for the de' +
        'mo.'
      Caption = 'Balloon'
      Checked = True
      Color = clBtnFace
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'System'
      Font.Style = []
      GroupIndex = 2
      ParentColor = False
      ParentFont = False
      TabOrder = 0
      OnClick = rbTypeClick
      OnPaint = rbTypePaint
    end
    object rbCustom: TODRadioButton
      Left = 145
      Top = 23
      Width = 124
      Height = 52
      Hint =
        'Selecting this choice will enable custom '#39'tooltip'#39' style hints f' +
        'or the demo.'
      Caption = 'Balloon'
      Checked = False
      Color = clBtnFace
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'System'
      Font.Style = []
      GroupIndex = 2
      ParentColor = False
      ParentFont = False
      TabOrder = 1
      OnClick = rbTypeClick
      OnPaint = rbTypePaint
    end
    object rbDefault: TODRadioButton
      Left = 13
      Top = 84
      Width = 256
      Height = 30
      Hint =
        'Selecting this choice will enable the normal Delphi hints for th' +
        'e demo.'
      Caption = 'Balloon'
      Checked = False
      Color = clBtnFace
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'System'
      Font.Style = []
      GroupIndex = 2
      ParentColor = False
      ParentFont = False
      TabOrder = 2
      OnClick = rbTypeClick
      OnPaint = rbTypePaint
    end
  end
  object GroupBox3: TGroupBox
    Left = 9
    Top = 132
    Width = 132
    Height = 89
    Caption = 'Hint Color'
    TabOrder = 3
    object cycHintColor: TODCycler
      Left = 40
      Top = 25
      Width = 52
      Height = 52
      Hint =
        'Click here to cycle through the available choices for hint color' +
        's.'
      Caption = 'Hint Color'
      Color = clBtnFace
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'System'
      Font.Style = []
      Max = 2
      ParentColor = False
      ParentFont = False
      TabOrder = 0
      OnClick = cycHintColorClick
      OnPaint = cycHintColorPaint
    end
  end
  object GroupBox4: TGroupBox
    Left = 152
    Top = 132
    Width = 137
    Height = 89
    Caption = 'Enable Hints'
    TabOrder = 4
    object chkEnableHints: TODCheckBox
      Left = 45
      Top = 25
      Width = 52
      Height = 52
      Hint = 'Enable/disable hints for the demo.'
      Caption = 'Enable Hints'
      Checked = True
      Color = clBtnFace
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'System'
      Font.Style = []
      ParentColor = False
      ParentFont = False
      State = cbChecked
      TabOrder = 0
      OnClick = chkEnableHintsClick
      OnPaint = chkEnableHintsPaint
    end
  end
end